開いているすべてのプレゼンテーションファイルをループ
Dim prs As Presentation For Each prs In Presentations '各プレゼンテーションに対する処理を行う Next prs
プレゼンテーションを閉じる
'上書きしないで閉じる ActivePresentation.Saved = msoTrue ActivePresentation.Close '上書き保存して閉じる ActivePresentation.Save ActivePresentation.Close
新規プレゼンテーションを作成
Presentations.Add
スライドを追加
ActivePresentation.Slides.Add Index:=1, Layout:=ppLayoutTitle